﻿Imports CustomTshirtFinal

Public Class UsuarioNuevo

    Property Usuarios As Usuarios

    Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
        Dim negocio As New UsuarioNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.txtNombre.Text, Me.txtApellido.Text, Me.txtTelefono.Text, Me.txtCorreo.Text, Me.txtSexo.Text, Me.txtPassword.Text)
            Else
                negocio.insertar(Me.txtNombre.Text, Me.txtApellido.Text, Me.txtTelefono.Text, Me.txtCorreo.Text, Me.txtSexo.Text, Me.txtPassword.Text)
            End If
            Me.Usuarios.dgvUsuarios.DataSource = ""
            MsgBox("El Usuario ha sido insertado exitosamente")

            Me.Close()

        Catch ex As Exception
            lblMensaje.Text = "Hubo un error al guardar"
        End Try
    End Sub

    Private Sub UsuarioNuevo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If lblId.Text <> "" Then
            Dim negocio As New UsuarioNegocio
            Dim modelo = negocio.obtener(lblId.Text)
            txtNombre.Text = modelo.nombre
            txtApellido.Text = modelo.apellido
            txtTelefono.Text = modelo.telefono
            txtCorreo.Text = modelo.correo
            txtSexo.Text = modelo.sexo
            txtPassword.Text = modelo.pass
        End If
    End Sub
End Class